home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / AOCE Sample Code / PowerTalk Access Modules / Sample PMSAM / PMSAM Framework / Common / CDSSpec.cp < prev    next >
Encoding:
Text File  |  1995-07-28  |  7.3 KB  |  287 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        CDSSpec
  3.  
  4.     Contains:    xxx put contents here xxx
  5.  
  6.     Written by:    Tim Harnett
  7.  
  8.     Copyright:    © 1994 by Apple Computer, Inc., all rights reserved.
  9.  
  10.     Change History (most recent first):
  11.  
  12.          <3>    10/14/94    TMH        added CDSSpec constructor
  13.          <2>     9/27/94    TMH        added CUnpackedDSSpec assignment operator
  14.          <1>     9/20/94    TMH        Abandon RoadsideRest embrace Mercury
  15.          <2>      9/9/94    TMH        added constructor to CUnpackedDSSpec
  16.                  6/10/94    TMH        xxx put comment here xxx
  17.  
  18.     To Do:
  19. */
  20.  
  21. #ifndef __STDIO__
  22. #include "StdIO.h"
  23. #endif
  24.  
  25. #ifndef __CDSSpec__
  26. #include "CDSSpec.h"
  27. #endif
  28.  
  29. #ifndef __PMSAMResourceIds__
  30. #include "PMSAMResourceIds.h"
  31. #endif
  32.  
  33. #ifndef __PMSAMResources__
  34. #include "PMSAMResources.h"
  35. #endif
  36.  
  37.  
  38.  
  39. //----------------------------------------
  40. //            C U n p a c k e d D S S p e c 
  41. //----------------------------------------
  42.  
  43.  
  44. //--------------------------------------------------------------------------
  45. CUnpackedDSSpec& CUnpackedDSSpec::operator =(OCEPackedRecipient* packedRecipient) 
  46. { 
  47.     OCEUnpackDSSpec((PackedDSSpec*)packedRecipient,(DSSpec*)this,fEntitySpecifier);
  48.     return *this;  
  49. };
  50.  
  51. //--------------------------------------------------------------------------
  52. CUnpackedDSSpec::CUnpackedDSSpec(OCEPackedRecipient* packedRecipient)
  53. {
  54.     fEntitySpecifier = &fEntity;
  55.     OCEUnpackDSSpec((PackedDSSpec*)packedRecipient,(DSSpec*)this,fEntitySpecifier);
  56.  
  57. }
  58.  
  59. //--------------------------------------------------------------------------
  60. // for decodeing dialup phone number string
  61. struct    UnpackedPhAddr {
  62.     short    viewType;
  63.     Str31    CC;
  64.     Str31    AC;
  65.     Str31    phNum;
  66.     Str31    postfix;
  67.     char    directDial[128];
  68. };
  69. #ifndef    __cplusplus
  70. typedef struct UnpackedPhAddr UnpackedPhAddr;
  71. #endif
  72.  
  73. #define InlineCode(selector) = { 0x303C, selector, 0xAA5C}
  74. #define sDialupUnpackPhAddr            1282
  75. pascal Boolean    DialupUnpackPhAddr(RString* RSPtr, UnpackedPhAddr* ph) InlineCode(sDialupUnpackPhAddr);
  76.  
  77. #define        kTemplateView                1
  78. #define        kIKnowView                    2
  79.  
  80.  
  81. //--------------------------------------------------------------------------
  82. StringPtr CUnpackedDSSpec::ExtValue(short asType, Ptr buffer)
  83. {
  84.     CDirExtTypeTableIterator    iter(kDirExtTypeTableID);
  85.     StringPtr otherRecipient = (StringPtr)buffer;
  86.     
  87.     DirExtTypeEntry* defaultDirExtType = 0;
  88.      
  89.     otherRecipient[0] = 0;
  90.     
  91.     for( DirExtTypeEntry* dirExtType = iter.FirstDirExtType();iter.More(); dirExtType = iter.NextDirExtType() ) {
  92.     
  93.         defaultDirExtType = dirExtType;
  94.         
  95.         if( fExtType == dirExtType->extType ) {
  96.         
  97.             if( dirExtType->isRString )
  98.                 otherRecipient[0] = sprintf((char*)&otherRecipient[1],"%P%P", &dirExtType->dirSysName, ExtValue() );
  99.             else
  100.             {
  101.                 switch (fExtType)
  102.                 {
  103.                     case 'entn':
  104.                         otherRecipient[0] = sprintf((char*)&otherRecipient[1],"%P%P",&dirExtType->dirSysName, (StringPtr)EntityName());
  105.                         break;
  106.                     
  107.                     case 'aphn':
  108.                         UnpackedPhAddr upPhone;
  109.  
  110.                         if (DialupUnpackPhAddr((RString *)fExtValue, &upPhone))
  111.                         {
  112.                             if (upPhone.viewType == kTemplateView)
  113.                                 otherRecipient[0] = sprintf((char*)&otherRecipient[1],"%P%P%P%P",&dirExtType->dirSysName, 
  114.                                                 (StringPtr)upPhone.CC, (StringPtr)upPhone.AC, (StringPtr)upPhone.phNum);
  115.                             else
  116.                                 otherRecipient[0] = sprintf((char*)&otherRecipient[1],"%P%P",&dirExtType->dirSysName, 
  117.                                                 (StringPtr)upPhone.directDial);
  118.                         }
  119.                         
  120.                         break;
  121.                         
  122.                     case 'TFAX':
  123.                     
  124.                         // this is what I think the TFAX extension compound rstring format is:
  125.                         //      long  - not used, usually 0 (0 length rstring???)
  126.                         //         RString - country code
  127.                         //        RString - area code
  128.                         //         RString - phone number
  129.                         
  130.                         
  131.                         // skip the first unused long, move the point to the body of ext value rstring where the first rstring is
  132.                         Ptr ext = (Ptr)fExtValue;
  133.                         ext = (Ptr)&(((RStringPtr)ext) -> body[0]);
  134.                         StringPtr cc,ac,ph;
  135.                         
  136.                             cc = OCERToPString((RStringPtr)ext);
  137.                             
  138.                             // point to next rstring
  139.                             ext = ext+ ((RStringPtr)ext) -> dataLength + sizeof(ProtoRString);
  140.                             if (cc[0] % 2)        // odd number string, skip the padding
  141.                                 ext += 1;
  142.                         
  143.                             ac = OCERToPString((RStringPtr)ext);
  144.                             
  145.                             // point to next rstring
  146.                             ext = ext+ ((RStringPtr)ext) -> dataLength + sizeof(ProtoRString);
  147.                             if (ac[0] % 2)        // odd number string, skip the padding
  148.                                 ext += 1;
  149.                         
  150.                             ph = OCERToPString((RStringPtr)ext);
  151.                         
  152.                             // put them in buffer
  153.                             otherRecipient[0] = sprintf((char*)&otherRecipient[1],"%P%P%P%P",&dirExtType->dirSysName, 
  154.                                                 (StringPtr)cc, (StringPtr)ac, (StringPtr)ph);
  155.                         break;
  156.  
  157.                     default:
  158.                         break;
  159.                 }
  160.             }
  161.             break;
  162.         
  163.         }
  164.     
  165.     }
  166.  
  167. //    ASSERT(defaultDirExtType);
  168.     
  169.     if( (defaultDirExtType!=0) && (otherRecipient[0] == 0) ) {
  170. //        ASSERTPRINT(false,("MapOtherAddress unknown extType %.4s\n",&unpackedRecipient.fExtType) );
  171.         otherRecipient[0] = sprintf((char*)&otherRecipient[1],"%P%P",&defaultDirExtType->dirSysName, (StringPtr)EntityName());
  172.     
  173.     }
  174.     
  175.     
  176.     return otherRecipient;
  177.     
  178. }
  179.  
  180. //--------------------------------------------------------------------------
  181. StringPtr CUnpackedDSSpec::ExtValue()
  182. {
  183.  
  184.     switch(fExtType) {
  185.     case 'alan':
  186.         return (StringPtr)fExtValue;
  187.     case 'entn': {
  188.         CUnpackedDSSpec    mailServer((OCEPackedRecipient*)(fExtValue + sizeof(OSType)));
  189.         return mailServer.EntityName();
  190.         }
  191.     default:
  192.         return (StringPtr) *(CRString*)fExtValue;    // assume its an RString
  193.     }
  194.  
  195. }
  196.  
  197.  
  198.  
  199.  
  200. //---------------------------------
  201. //        C D S S p e c
  202. //---------------------------------
  203.  
  204. //  some of these may not be used anymore.
  205.  
  206. //-------------------------------------------------------------------------------------------
  207. CDSSpec::CDSSpec(StringPtr name,StringPtr dirName, OSType extType,StringPtr extValue )
  208. {
  209.     fExtValue = (Ptr)&_fExtValue;
  210.     
  211.     fEntitySpecifier = &fEntity;
  212.     
  213.     CRLI recipientRLI(dirName,extType);
  214.     OCEPackRLI((RLI*)&recipientRLI,(PackedRLI*)fEntity.fRLI,sizeof(CPackedRLI));
  215.  
  216.     fEntity.SetType(kUserRecTypeNum);
  217.     fEntity.SetName(name);
  218.  
  219.     fExtType = extType;
  220.     _fExtValue = extValue;
  221.     fExtSize = _fExtValue.Length();
  222. }
  223.  
  224.  
  225.  
  226. //-------------------------------------------------------------------------------------------
  227. CDSSpec::CDSSpec(CRecordName& name,StringPtr dirName, OSType extType,StringPtr extValue )
  228. {
  229.     fExtValue = (Ptr)&_fExtValue;
  230.     
  231.     fEntitySpecifier = &fEntity;
  232.     
  233.     CRLI recipientRLI(dirName,extType);
  234.     OCEPackRLI((RLI*)&recipientRLI,(PackedRLI*)fEntity.fRLI,sizeof(CPackedRLI));
  235.  
  236.     fEntity.SetType(kUserRecTypeNum);
  237.     fEntity.SetName(name);
  238.  
  239.     fExtType = extType;
  240.     _fExtValue = extValue;
  241.     fExtSize = _fExtValue.Length();
  242. }
  243.  
  244.  
  245. //-----------------------------------------------------------------------------------------
  246. CDSSpec::CDSSpec(StringPtr name,CDirectoryName& dirName,OSType extType,StringPtr extValue)
  247. {
  248.     fExtValue = (Ptr)&_fExtValue;
  249.     
  250.     fEntitySpecifier = &fEntity;
  251.     
  252.     CRLI recipientRLI(dirName,extType);
  253.     OCEPackRLI((RLI*)&recipientRLI,(PackedRLI*)fEntity.fRLI,sizeof(CPackedRLI));
  254.  
  255.     fEntity.SetType(kUserRecTypeNum);
  256.     fEntity.SetName(name);
  257.  
  258.     fExtType = extType;
  259.     _fExtValue = extValue;
  260.     fExtSize = _fExtValue.Length();
  261. }
  262.  
  263.  
  264.  
  265. //-------------------------------------------------------------------------------------------
  266. CDSSpec::CDSSpec(OCEPackedRecipient* packedRecipient )
  267. {
  268.     RecordID    rid;
  269.     DSSpec        dsspec;
  270.  
  271.     OCEUnpackDSSpec((PackedDSSpec*)packedRecipient,&dsspec,&rid);
  272.     
  273.     fEntitySpecifier = &fEntity;
  274.  
  275.     //    We copy into this
  276.     
  277.     fEntity = &rid;    // copy
  278.     
  279.     fExtType = dsspec.extensionType;
  280.     fExtSize = dsspec.extensionSize;
  281.     
  282.     _fExtValue = (RString*)dsspec.extensionValue;    // assumption of string.
  283. }
  284.  
  285.  
  286.  
  287.